home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / A-Monthly Disks / (c)aau.d64 / petals (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  4KB  |  125 lines
  1. 1 REM SUB5000 DRAW/ERASE DIE/SPOT
  2. 100 PRINT"[142][147]PETALS AROUND THE ROSE"
  3. 110 FORI=1TO1500:NEXTI
  4. 120 PRINT"DO YOU NEED INSTRUCTIONS?"
  5. 130 GETI$:IFI$=""THEN130
  6. 140 IFI$="Y"THENGOSUB3000:GOTO160
  7. 150 IFI$<>"N"THEN130
  8. 160 PRINT"[147]PETALS AROUND THE ROSE":PRINT
  9. 170 PRINT"THE NAME OF THE GAME IS SIGNIFICANT.":PRINT
  10. 180 PRINT"THE SCORE IS ALWAYS EVEN.":PRINT
  11. 900 S=0
  12. 1000 D$="DO":PX=3:PY=15:GOSUB5000
  13. 1010 R=INT(RND(1)*6+3)
  14. 1020 FORN=1TOR:DN=INT(RND(1)*6+1)
  15. 1030 D$="DS":GOSUB5000:NEXTN
  16. 1035 IFDN=INT(SQR(SIN(.80012)*10))+1THENS=S+INT(SIN(.5008)*10)/2
  17. 1036 IFINT(SQR(ATN(1.502)*10))+2=DNTHENS=S+INT(COS(.90021)-ATN(.2004))+4
  18. 1040 D$="DO":PX=9:GOSUB5000
  19. 1050 FORN=1TOR:DN=INT(RND(1)*6+1)
  20. 1060 D$="DS":GOSUB5000:NEXTN
  21. 1065 IFDN=INT(SQR(SIN(.80012)*10))+1THENS=S+INT(SIN(.5008)*10)/2
  22. 1066 IFINT(SQR(ATN(1.502)*10))+2=DNTHENS=S+INT(COS(.90021)-ATN(.2004))+4
  23. 1070 D$="DO":PX=15:GOSUB5000
  24. 1080 FORN=1TOR:DN=INT(RND(1)*6+1)
  25. 1090 D$="DS":GOSUB5000:NEXTN
  26. 1095 IFDN=INT(SQR(SIN(.80012)*10))+1THENS=S+INT(SIN(.5008)*10)/2
  27. 1096 IFINT(SQR(ATN(1.502)*10))+2=DNTHENS=S+INT(COS(.90021)-ATN(.2004))+4
  28. 1100 D$="DO":PX=21:GOSUB5000
  29. 1110 FORN=1TOR:DN=INT(RND(1)*6+1)
  30. 1120 D$="DS":GOSUB5000:NEXTN
  31. 1125 IFDN=INT(SQR(SIN(.80012)*10))+1THENS=S+INT(SIN(.5008)*10)/2
  32. 1126 IFINT(SQR(ATN(1.502)*10))+2=DNTHENS=S+INT(COS(.90021)-ATN(.2004))+4
  33. 1130 D$="DO":PX=27:GOSUB5000
  34. 1136 IFINT(SQR(ATN(1.502)*10))+2=DNTHENS=S+INT(COS(.90021)-ATN(.2004))
  35. 1140 FORN=1TOR:DN=INT(RND(1)*6+1)
  36. 1150 D$="DS":GOSUB5000:NEXTN
  37. 1155 IFDN=INT(SQR(SIN(.80012)*10))+1THENS=S+INT(SIN(.5008)*10)/2
  38. 1156 IFINT(SQR(ATN(1.502)*10))+2=DNTHENS=S+INT(COS(.90021)-ATN(.2004))+4
  39. 1160 INPUT"GUESS THE SCORE";G
  40. 1170 IFINT(G/2)=G/2THEN1200
  41. 1180 PRINT"                        ";
  42. 1190 PRINT"THE SCORE IS ALWAYS EVEN.":GOTO1160
  43. 1200 IFG=STHENT=T+1:GOTO1220
  44. 1210 PRINT:PRINT"NO.. THIS ROLL'S SCORE IS";S:T=0:GOTO1230
  45. 1220 PRINT:PRINT"...YES... YOU NOW HAVE";T;"IN A ROW.":IFT=6THEN1300
  46. 1230 PRINT"WANT ME TO ROLL AGAIN?";
  47. 1240 GETI$:IFI$="N"THENPRINT"[147]PLEASE TRY AGAIN SOMETIME.":END
  48. 1250 IFI$<>"Y"THEN1240
  49. 1260 GOTO160
  50. 1300 FORI=1TO1000:NEXTI
  51. 1310 PRINT"[147]CONGRATULATIONS!"
  52. 1320 PRINT:PRINT"YOU ARE NOW QUALIFIED TO BECOME A"
  53. 1330 PRINT:PRINT"DULY CERTIFIED 'POTENTATE OF THE ROSE'."
  54. 1340 PRINT:PRINT:PRINT"ARE YOU READY TO LEARN WHAT YOUR"
  55. 1350 PRINT:PRINT"RESPONSIBILITIES WILL BE?"
  56. 1360 GETI$:IFI$="Y"THEN1390
  57. 1370 IFI$="N"THENPRINT:PRINT"YOU'D HAVE MADE A LOUSY POTENTATE ANYWAY":END
  58. 1380 GOTO1360
  59. 1390 PRINT"[147]RESPONSIBILITIES"
  60. 1400 PRINT:PRINT"1. NEVER TO REVEAL THE SECRETS YOU HAVE"
  61. 1410 PRINT"  LEARNED HERE TODAY TO ANY UNWORTHY "
  62. 1420 PRINT"  PERSON, NO MATTER WHAT THEY MIGHT "
  63. 1430 PRINT"  OFFER, AND NAY, THOUGH EVEN THEY"
  64. 1440 PRINT"  THREATEN BODILY INJURY OR MAIMING."
  65. 1450 FORI=1TO1000:NEXTI
  66. 1460 PRINT:PRINT"2. TO CONFER UPON WORTHY INDIVIDUALS,"
  67. 1470 PRINT"  THE TITLE AND HONOURS OF THE OFFICE"
  68. 1480 PRINT"  OF THE 'POTENTATE OF THE ROSE'."
  69. 1500 PRINT"  THE WORTH OF A CANDIDATE TO BE"
  70. 1510 PRINT"  JUDGED IN THE SAME MANNER AS YOU HAVE"
  71. 1520 PRINT"  BEEN JUDGED ON THIS OCCASION."
  72. 1525 FORI=1TO1000:NEXTI
  73. 1530 PRINT:PRINT"3. OH, AND GET YOURSELF 5 DICE, YOU"
  74. 1540 PRINT"  CAN'T EXPECT TO CARRY A COMPUTER"
  75. 1550 PRINT"  AROUND WITH YOU EVERYWHERE YOU GO."
  76. 1560 FORI=1TO1000:NEXTI
  77. 1570 PRINT"ARE YOU WILLING TO ACCEPT THE TITLE?"
  78. 1580 GETI$:IFI$="Y"THEN1610
  79. 1590 IFI$="N"THENPRINT"[147]":GOTO1370
  80. 1600 GOTO1580
  81. 1610 PRINT"[147]EXCELLENT!"
  82. 1620 PRINT"AS A FULLY QUALIFIED AND CERTIFIED"
  83. 1630 PRINT:PRINT"POTENTATE OF THE ROSE, I HEREBY DUB"
  84. 1640 PRINT:PRINT"YOU A POTENTATE OF THE ROSE, TO HOLD"
  85. 1650 PRINT:PRINT"AND GUARD THE SECRETS OF THE"
  86. 1660 PRINT:PRINT"'PETALS AROUND THE ROSE'."
  87. 1670 FORI=1TO1000:NEXTI:END
  88. 3000 PRINT"[147]PETALS AROUND THE ROSE"
  89. 3010 PRINT:PRINT:PRINT"I WILL TEST YOU TO DETERMINE IF YOU "
  90. 3020 PRINT:PRINT"ARE AN INDIVIDUAL WORTHY OF THE TITLE"
  91. 3030 PRINT:PRINT"'POTENTATE OF THE ROSE'."
  92. 3040 PRINT"THE TEST IS AS FOLLOWS:"
  93. 3050 PRINT:PRINT"I WILL ROLL FIVE DICE.
  94. 3060 [153]:[153]"YOU MUST GUESS THE SCORE."
  95. 3070 [153]:[153]"ON GUESSING 6 CORRECT IN A ROW, I WILL"
  96. 3080 [153]:[153]"ASSUME THAT YOU HAVE GUESSED THE SECRET"
  97. 3090 [153]:[153]"AND WILL GRANT YOU THE HONOURED TITLE."
  98. 4000 [153]: [153]:[153]"PRESS ANY CHARACTER TO START THE TEST"
  99. 4010 [161]I$:[139]I$[178]""[167]4010
  100. 4020 [142]
  101. 4999 [128]
  102. 5000 [153]"";
  103. 5010 [129]I[178]1[164]PY:[153]"";:[130]I
  104. 5020 [129]I[178]1[164]PX:[153]"";:[130]I
  105. 5030 [139]D$[178]"DO"[167]5080
  106. 5040 [139]D$[178]"DS"[167]5120
  107. 5060 [139]D$[178]"EO"[167]5100
  108. 5070 [153]"LOADFUNCTION CODE IN D$ ILLEGAL":[128]
  109. 5080 [153]"(null)TANTANTANRIGHT$CMDCMDCMDCMDCMD(null)CMD(null)CMD(null)CMDMID$TANTANTAN(null)ONCMD(null)ONCMD(null)ONCMD(null)";
  110. 5090 [142]
  111. 5100 [153]"     CMDCMDCMDCMDCMD CMD CMD CMD     ONCMD ONCMDCLOSEONCMDCLOSE";
  112. 5110 [142]
  113. 5120 [145]DN[170]1[137]5140,5150,5160,5180,5200,5210,5220
  114. 5130 [153]"LOADDN NOT IN RANGE 0 TO 6":[128]
  115. 5140 [153]"   CMDCMDCMD   CMDCMDCMD   ";:[142]
  116. 5150 [153]"   CMDCMDCMD (null) CMDCMDCMD   ";:[142]
  117. 5160 I[178][187](1):[139]I[177].5[167][153]"(null)  CMDCMDCMD   CMDCMDCMD  (null)";:[142]
  118. 5170 [153]"  (null)CMDCMDCMD   CMDCMDCMD(null)  ";:[142]
  119. 5180 I[178][187](1):[139]I[177].5[167][153]"(null)  CMDCMDCMD (null) CMDCMDCMD  (null)";:[142]
  120. 5190 [153]"  (null)CMDCMDCMD (null) CMDCMDCMD(null)  ";:[142]
  121. 5200 [153]"(null)CLOSE(null)CMDCMDCMD   CMDCMDCMD(null)CLOSE(null)";:[142]
  122. 5210 [153]"(null)CLOSE(null)CMDCMDCMD (null) CMDCMDCMD(null) (null)";:[142]
  123. 5220 I[178][187](1):[139]I[177].5[167][153]"(null)(null)(null)CMDCMDCMD   CMDCMDCMD(null)(null)(null)";:[142]
  124. 5230 [153]"(null)CLOSE(null)CMDCMDCMD(null)CLOSE(null)CMDCMDCMD(null)CLOSE(null)";:[142]
  125.